// ****************************************************************************
//
// Logic 1: PATRICK'S QUEST VER 1.0
//
// ****************************************************************************

#include "defines.txt"
#define star o3
#define vCounter v200

if (new_room) {
  load.sound(127);
  sound(127,f16);
  load.pic(room_no);
  draw.pic(room_no);
  discard.pic(room_no);
  set.horizon(50);
  status.line.off();
  prevent.input();
  program.control();
  show.pic();

  animate.obj(o4);
  load.view(54);
  set.view(o4,54);
  set.loop(o4,0);
  set.cel(o4,10);
  position(o4,115,50);
  set.priority(o4,13);
  ignore.horizon(o4);
  ignore.blocks(o4);
  ignore.objs(o4);
  draw(o4);

  animate.obj(o3);
  load.view(54);
  set.view(o3,54);
  set.loop(o3,0);
  set.cel(o3,5);
  set.priority(o3,13);
  position(o3,35,130);
  ignore.horizon(o3);
  ignore.blocks(o3);
  ignore.objs(o3);
  draw(o3);

  animate.obj(o5);
  load.view(54);
  set.view(o5,54);
  set.loop(o5,0);
  set.cel(o5,0);
  set.priority(o5,13);
  position(o5,34,51);
  ignore.horizon(o5);
  ignore.blocks(o5);
  ignore.objs(o5);
  draw(o5);

  animate.obj(o6);
  load.view(54);
  set.view(o6,54);
  set.loop(o6,0);
  set.cel(o6,7);
  set.priority(o6,13);
  position(o6,118,130);
  ignore.horizon(o6);
  ignore.blocks(o6);
  ignore.objs(o6);
  draw(o6);
 }


if (new_room)
{
  vCounter = 0;
}

if (vCounter < 30)
{
  vCounter++;
}
else
{
  if (vCounter == 30)
  {
    display(20, 1, "  Patrick's Quest AGI created by:");
    display(21,1,"            SMARTGUY240");
    display(22, 1, " Copyright 2002. All Rights Reserved");
    vCounter++;
  }
}



if (have.key()) {
  set(menu_enabled);
  clear.lines(22, 24, 0);
  stop.motion(o0);
  reset(f33);
  new.room(2);
}

return();
